|
ｿｽ@ｿｽｿｽVBｿｽｿｽｿｽｿｽmySQLｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽVｿｽlｿｽｿｽﾐ茨ｿｽ 2007/10/19(ｿｽｿｽ) 18:57:28
VBｿｽｿｽｿｽｿｽmySQLｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽ
ｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽNｿｽGｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾂ具ｿｽｿｽｿｽ
VB:VB6.0 DB:mySQL5.0 OS:windowsXP
ｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾝのコｿｽ[ｿｽhｿｽｿｽ
---------------------------------------------
Private cn As New ADODB.Connection
Private cn_cmd As New ADODB.Command
Private param As ADODO.Parameter
Private rs As New ADODB.Recordset
---------------------------------------------
private Sub Form_Load()
Dim dsn As String
dsn = "dsn=my****;uid=root;pwd=*******"
Set cn = CreateObject("ADODB.Connection")
cn.Open dsn
cn.CursorLocation = 3
End Sub
---------------------------------------------
(ｿｽeｿｽLｿｽXｿｽg:txt.Kensakuｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽs)
---------------------------------------------
Private Sub Command1_Click()
Dim word As Variant
Dim strsql As String
'** ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾚ托ｿｽｿｽｿｽｿｽwｿｽｿｽ
cn_cmd.ActiveConnection = cn
'** ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽHｿｽ}ｿｽ[ｿｽNｿｽﾅ指ｿｽ閧ｷｿｽｿｽ
cn_cmd.CommandText = "select * from vbtest.famiryname" _
& "where ｿｽｿｽｿｽｿｽ like ?"
'** ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ値ｿｽｿｽwｿｽ閧ｷｿｽｿｽ
word = txtKensaku.Text
Set param = New ADODB.Parameter
Set param = cn_cmd.CreateParameter("ｿｽｿｽｿｽｿｽ", _
adChar, adParamInput)
cn_cmd.Parameters.Append param ｿｽｿｽｿｽｿｽｿｽﾌ行
cn_cmd.Parameters("ｿｽｿｽｿｽｿｽ") = "'%" & word & "%'"
'** ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽZｿｽbｿｽg
Set rs = cn_cmd.Execute()
----------------------------------------------
ｿｽｿｽｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ「ｿｽｿｽｿｽﾌ行ｿｽvｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽ3708ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽGｿｽｿｽｿｽ[ｿｽﾌ難ｿｽeｿｽｿｽｿｽｿｽParameter ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽKｿｽﾘゑｿｽ
ｿｽ@ｿｽ@ｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽﾍ不ｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽが提供ゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆなゑｿｽﾜゑｿｽｿｽBｿｽqｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ竄ｷｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽHPｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤､ｿｽ黷ｵｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2007/10/22(ｿｽｿｽ) 08:41:31
VBｿｽﾅデｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽX
http://homepage2.nifty.com/inform/vbdb/
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾅ散ｿｽXｿｽoｿｽﾄゑｿｽｿｽｿｽgｿｽoｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽVｿｽlｿｽｿｽﾐ茨ｿｽ 2007/10/22(ｿｽｿｽ) 09:45:28
ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽHPｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽSｿｽﾒなのゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ出ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽuADOｿｽﾅパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽtｿｽｿｽｿｽXｿｽgｿｽAｿｽhｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽv
ｿｽﾌとゑｿｽｿｽｿｽﾌ、
' ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽ ? ｿｽ}ｿｽ[ｿｽNｿｽﾅ指ｿｽ閧ｷｿｽｿｽ
cmd.CommandText = "reptq3 ?,?,?"
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾌ「reptq3ｿｽvｿｽﾌとゑｿｽｿｽだｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽVｿｽlｿｽｿｽﾐ茨ｿｽ 2007/10/22(ｿｽｿｽ) 14:17:54
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ自己会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽうｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆは、ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽNｿｽGｿｽｿｽｿｽｿｽ
ｿｽgｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽoｿｽｿｽｿｽ驍ｱｿｽﾆに気ｿｽﾃゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽAｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2007/10/22(ｿｽｿｽ) 15:16:33
ｿｽVｿｽlｿｽｿｽﾐ茨ｿｽｿｽsｿｽｿｽ
