vb²ÎÊý´«µÝºó±£Áô... - VB / »ù´¡Àà

Àý£ºÊäÈëtext1.text=127.0.0.1 


public a as string 

Private Sub Command1_Click()
a = Text1.Text
end sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "provider=sqloledb; data source=" & Trim(a) & ";initial catalog=student;user id=sa;password=sa;"
end sub

Äܲ»ÄÜÿ´Î´ò¿ªÈí¼þ¶¼ÈÃtext1.text¶¼±£ÁôÉÏÒ»´ÎÊäÈëµÄipµØÖ·~²»ÓÃÿ´Î´ò¿ªÈí¼þ¾ÍÏÈÊäÈëip~

---

VB code:

Option Explicit

Private Sub Form_Load()
Me.Text1.Text = VBA.GetSetting("myapp", "mysection", "mykey", "127.0.0.1")
End Sub

Private Sub Form_Unload(Cancel As Integer)
VBA.SaveSetting "myapp", "mysection", "mykey", Me.Text1.Text
End Sub

---

ÒýÓÃ

Äܲ»ÄÜÿ´Î´ò¿ªÈí¼þ¶¼ÈÃtext1.text¶¼±£ÁôÉÏÒ»´ÎÊäÈëµÄipµØÖ·~²»ÓÃÿ´Î´ò¿ªÈí¼þ¾ÍÏÈÊäÈëip~

ÄÜ£¬°ÑÉÏÒ»´Îtext1.textµÄÄÚÈݱ£´æµ½iniÎļþ»òtxtÎļþ»òÊý¾Ý¿â£¬Ï´ÎÆô¶¯Ê±µ÷ÓÃÎļþÀïµÄÄÚÈÝ£¬Ã»ÓÐÌØÊâÒªÇóµÄ»°£¬½¨ÒéÄã±£´æµ½txtÎļþ£¬ÒòΪÕâÊÇ×îºÃ²Ù×÷µÄÒ»ÖÖ¡£

---

Õâ¸öÊǶÁдiniÎļþµÄhttp://zhidao.baidu.com/question/27124950.html

lyserver µÄ×ö·¨Êǽ«ÅäÖñ£´æµÄ×¢²á±íÀïÁË

---

л´ó¼Ò лר¼Ò£¡Òì³£¸Ðл£¡