Private Sub Command1_Click() a = Text1.Text end sub
Private Sub Form_Load() Set cn = New ADODB.Connection cn.Open "provider=sqloledb; data source=" & Trim(a) & ";initial catalog=student;user id=sa;password=sa;" end sub
我想把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 ......