请输入专案类型(网站专案或者应用程式专案)：VB Winform 是这样的，我的程式目前是设定连电脑中的SQL资料库，但我现在才发现 这样发行出来之後拿到别台电脑就会不能用了。所以想请问一下该怎麽 做才可以让我的程式可以在没有资料库上的电脑也能执行呢？ 以下是我的程式码。Liv_1及Liv_2为下拉选单ComboBox，而我现在的资 料库名称是Live，里头的表单也叫Liv。Live1及Live2则是表单中的两个 栏位。Dataset1是我拉到Form1里的一个Dataset元件。 Private Sub Liv_1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Liv_1.SelectedIndexChanged Dim str As String = "Data Source=Davin-PC;Initial Catalog=Live;Persist Security Info=True;User ID=davintsai;password =12345" Dim conn As SqlConnection = New SqlConnection(str) conn.Open() If (Liv_1.SelectedIndex = 0) Then Dim SQLcommand1 As String = "SELECT Live2 from Live where Live1 =" & "'" & Liv_1.Text & "'" Dim da1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand1, conn) da1.Fill(DataSet1, "Live") Liv_2.DisplayMember = "Live2" Liv_2.DataSource = DataSet1.Tables("Live").DefaultView DataSet1.Tables.Clear() elseif (Liv_2.SelectedIndex = 1) Then . . . conn.Close() End Sub 我现在要做的应该就是拉一个BindingSource进我的Form1对吧？ 但我不晓得要怎麽变动Dim str as String="" 这一串原本是连外的语法，还有就是下面的Connection的部份。 还麻烦各位指导一下如果我现在想改成连内部的BindingSource 好让我可以在没有资料库的电脑上也能执行这支程式，那我应该 怎麽改呢？谢谢。 -- 我热爱弹吉他解闷。 我喜欢拿单眼拍照。 我享受骑公路车奔驰。 自从尝试过将这三样我爱的东西搞在一起後我就发现： 『这三样东西怎麽也不能凑在一起』 https://www.youtube.com/davintsai http://davintsai.pixnet.net --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 115.43.168.135 ※ 编辑: DavinTsai 来自: 115.43.168.135 (11/22 13:50) ※ 编辑: DavinTsai 来自: 115.43.168.135 (11/22 14:04)