十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
1、打开Microsoft Visual Studio 2008/2010或者Visual basic开发工具;
创新互联建站专注于潞州网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供潞州营销型网站建设,潞州网站制作、潞州网页设计、潞州网站官网定制、成都小程序开发服务,打造潞州网络公司原创品牌,更为您提供潞州网站排名全网营销落地服务。
2、新建一个windows窗体应用程序,并在窗体上添加一个按钮;
3、双击按钮进入按钮单击事件,在事件中添加如下代码:
vb6.0开发环境使用 Shell "explorer "
VS2008/2010开发环境使用 Shell("explorer ")
4、按F5键运行,鼠标点击按钮,程序会启动浏览器并打开所设定的网址,如果需要打开其他网址,将步骤3中的更换成你需要的地址即可。
没用过vb.net中的webbrower
下面是VB6.0的代码
1)如果你知道你要点击的A链是第几个,可以用这样的方法
WebBrowser1.Document.getElementsByTagName("a")(x).Click
x代表第几个
2)如果你不知道或者你要点击的A链位置不确定的话你可以用遍历的方式找到你要点击的A链
'请先定义
'AValue代表A链的innerHTML属性,也就是我们经常的看到超链接上面的字
'
Set AObj = WebBrowser1.Document.getElementsByTagName("a")
Debug.Print "AObj:" TypeName(AObj)
For Each NewAObj In AObj
Debug.Print "NewAObj.innerHTML:" NewAObj.innerHTML
temp = Trim(NewAObj.innerHTML)
If temp = AValue Then
NewAObj.Click
Debug.Print "点击【" AValue "】成功"
Exit For
End If
Next
3)更多方法请百度。
可以先创建对hana的ODBC连接ODBCNAME,然后:
''' summary
''' 根据SQL语句查询数据
''' /summary
''' param name="sql"SQL查询语句/param
''' returns结果集/returns
Public Function getDataSetBySql(sql As [String]) As DataSet
Try
Dim ds As New DataSet()
Dim command As New OdbcCommand(sql)
'command 对象
Dim connstring As [String] = "dsn=ODBCNAME;uid=USERID;pwd=PASSWORD"
'ODBC连接字符串
Using connection As New OdbcConnection(connstring)
'创建connection连接对象
command.Connection = connection
connection.Open()
'打开链接
Dim adapter As New OdbcDataAdapter(command)
'实例化dataadapter
adapter.Fill(ds)
'填充查询结果
Return ds
End Using
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
System.Diagnostics.Process.Start("")
或者用 WebBrowser控件,代码 WebBrowser1.Url = New System.Uri("")