Dim USERNAME As String Dim BRIDATE As Data Dim SEX As String Dim NUM As Integer //////////////////要插入的数据在上边4个定义的变量中存放 表字段名 ：编号，姓名，出生日期，性别 分别对应 NUM USERNAME BRIDATE SEX 要把这个记录加到表的末尾 改怎么做 尤其是 insert into 后 数据格式问题 请指教 INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees',2000-01-01,'m') where 列1=值1 MSSQL中插入日期好像要这样吧：INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees',#2000-01-01#,'m') where 列1=值1 VB code: 'insert into 后不需要加where条件,除非是 insert inot select ... where 格式 INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees','2000-01-01','m')
'//////////////////////////////////////////////////确认添加用户的按钮 Private Sub Command2_Click() Dim USENAME As String Dim BRIDATE As Data Dim SEX As String Dim NUM As Integer '////////////////////////////// USENAME = Text1.Text 'DTPicker1.Refresh BRIDATE = DTPicker1.Value NUM = BH If Option1.Value = True Then
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
