重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用正则表达式吧,首先导入命名空间System.Text.RegularExpressions,用Webbrowser载入页面,使用vb.net的代码如下:
成都创新互联专业为企业提供淇滨网站建设、淇滨做网站、淇滨网站设计、淇滨网站制作等企业网站建设、网页设计与制作、淇滨企业网站模板建站服务,十载淇滨做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
Dim iTable As String = WebBrowser1.Document.Body.InnerHtml
Dim str_xm1 As String = Regex.Match(Regex.Matches(iTable, "td.*?/td").Item(6).Value, ".*?").Value
这样str_xm1就是你要的内容。
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
db = "C:\Documents and Settings\ws01\デスクトップ\新しいフォルダ\WindowsApplication1\db1.mdb"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" db
conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
conn.Open(db)
Rs = conn.OpenSchema()
End Sub
sql = "select name from sysobjects where type='U'"
获取所有表名,然后再遍历每个表的字段,获取字段名