13-04-14, 11:25 PM
استخدم جملة الاتصال في الموديول
Public ff As String
Public Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Jet OLEDBatabase Password='123321';Data Source='" & ff & "' ")
وعند فورم الدخول
if form1.radiobutton1.checked=true then
ff="a1\asd.mdb"
end if
if form1.radiobutton2.checked=true then
ff="a2\asd.mdb"
end if
Public ff As String
Public Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Jet OLEDBatabase Password='123321';Data Source='" & ff & "' ")
وعند فورم الدخول
if form1.radiobutton1.checked=true then
ff="a1\asd.mdb"
end if
if form1.radiobutton2.checked=true then
ff="a2\asd.mdb"
end if