本人菜鸟,目前写个小程序,希望想把1218209980110052007和340.12联结起来实现成121820998011005200700003401200000000003
(小弟我也看了点资料,目前只能实现把2个字段变成字符然后联结在一起,目前实现的是把32和65连在一起变成 空格32空格65)
小弟我的代码如下,希望高手帮帮忙,修改下,能实现上面的功能
Dim con As ADODB.Connection
Private Sub cmdQd_Click()
Set con = New ADODB.Connectioncon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\gzxg.mdb"con.Open
con.Execute "insert into Table1(mun3)select str(num1)+str(num2) from Table1"con.Close
Set con = NothingUnload Me
End Sub

解决方案 »

  1.   

    各位高手有兴趣可以加我的QQ详细谈,打SQL通过验证,很想和各位交个朋友
      

  2.   

    我改了你的代码,你试验下:
    Dim con As ADODB.Connection
    Dim rs As ADODB.RecordsetPrivate Sub cmdQd_Click()
    Set con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\gzxg.mdb"con.Openrs.Open "Table1", con, adOpenKeyset, adLockOptimisticcon.Execute "insert into Table1(mun3)select str(num1)+str(num2) from Table1"Unload Me
    End Sub