1. vb如何连接excel

可以使用 Visual Basic for Applications (VBA) 来导入 Excel 中的数据。可以通过以下步骤来实现：

打开 Excel 并启动 VBA 编辑器（按 ALT + F11）。

在 VBA 编辑器中，新建一个模块。

复制下面的代码并粘贴到模块

Sub ImportData()

    Dim wb As Workbook

    Set wb = Workbooks.Open("C:\path\to\your\file.xlsx")

    ' Import the data into the active sheet

    wb.Sheets(1).Range("A1").CurrentRegion.Copy Destination:=ActiveSheet.Range("A1")

    wb.Close False

End Sub

替换 "C:\path\to\your\file.xlsx" 为你的文件路径。

在 VBA 编辑器中运行该代码（按 F5 或选择“运行”）。

该代码会导入 Excel 中的数据到当前工作簿的第一个工作表中。

2. vb如何连接sql数据库

比如有个asp.net(vb.net)连接sqlserver2000数据库的连接模块(module)：ModuleMdlCommonPublictxtSQLAsString'存放SQL语句PublicDBSetAsDataSet'查询得到的记录集PublicErrorMsgAsString'存放错误信息PublicFunctionExecuteSQL(ByValstrSQLAsString,ByReferrMsgAsString)AsDataSetDimcnnAsSqlClient.SqlConnectionDimcmdAsNewSqlClient.SqlCommand()DimadptAsSqlClient.SqlDataAdapterDimrstAsNewDataSet()DimSplitSQL()AsStringerrMsg=""TrySplitSQL=Split(strSQL)cnn=NewSqlClient.SqlConnection("datasource=(local);initialcatalog=urp;userid=sa;pwd=1234"

)IfInStr("INSERT,DELETE,UPDATE",UCase$(SplitSQL(0))

)Thencmd.Connection=cnncmd.Connection.Open()cmd.CommandText=strSQLcmd.ExecuteNonQuery()Elseadpt=NewSqlClient.SqlDataAdapter(strSQL,cnn)adpt.Fill(rst)ExecuteSQL=rstEndIfCatchexAsExceptionerrMsg=ex.MessageFinallyrst=Nothingcnn=NothingEndTryEndFunctionEndModule调用时在asp.net后台写上txtSQL="SELECT*FROMuser";DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。

3. vb如何连接sql sever数据库

用IP地址就行的.服务器就是IP,如果端口不是1433那就加上端口号比如: 60.60.78.78,2433表示连接的服务器为60.60.78.78端口2433在你的路由器上,要做商品映射,把你内网中的SQLSERVER的服务器的端口映射出来.

4. vb如何连接远程sql数据库

你数据库有密码的吧。你密码没给他添加进去

myStr = "Provider=SQLOLEDB.1;password=***;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=流水帐;Data Source=."

这段里面 *** 表示你的密码，在数据库中把sa帐号的密码改成***

如果你不想加密码，就把sa的密码改成空就可以了

5. vb如何连接远程access2007数据库

Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)

6. vb如何连接两个窗体

把单选框分别放到不同的组合框控件当中去就行了