ͬÀàÎÊÌâ,Èç¹ûÊý¾Ý¼¯ÖÐÓÐÁ½¸öÒÔÉϵıí,ÒªÏë½øÐи´ÔӵIJéѯ¸ÃÔõô°ì?Dim nn As New SqlClient.SqlConnection nn.ConnectionString = "Data Source=(local);Initial Catalog='Êý¾Ý¿âÃû';Integrated Security=SSPI" nn.Open() Dim kz As New SqlClient.SqlDataAdapter(select * from table where ÐÔ±ð='ÄÐ', nn) Dim da As New DataTable kz.Fill(da) datagridview1.DataSource=da Á½¸ö±íÒÔÉϽøÐи´ÔÓ²éѯµÄ»°£¬ÓÃËüÃÇÖ®¼äµÄÖ÷¼ü½øÐÐÁªÏµ¾Í¿ÉÒÔÁË£¡ Dim str As String Dim ds As New DataSet Dim da As SqlDataAdapter str = "data source=localhost;initial catalog=±í¸ñÃû;integrated security=true" Dim con As New SqlConnection(str) con.Open() Dim sql As String = "select * from ±í¸ñÃû" da = New SqlDataAdapter(sql, con) da.Fill(ds) DataGrid1.DataSource = ds.Tables(0) VB.NET code: Dim dv As DataView = dataset1.Tables(0).DefaultView dv.RowFilter = "ÐÔ±ð='ÄÐ'" datagridview1.DataSource=dv
ÎÒÏë°Ñ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 ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......